home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / utility2 / wine02bx.zip / LISP / DIRED / DIRED-VM.ELC < prev    next >
Text File  |  1993-03-28  |  5KB  |  42 lines
  1. ;;; compiled by jwz@thalidomide on Tue Aug 18 17:09:16 1992
  2. ;;; from file /u/jwz/emacs19/lisp/dired/dired-vms.el
  3. ;;; emacs version 19.2.2 Lucid.
  4. ;;; bytecomp version 2.08;  2-aug-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (byte-code "└┴┬\"ê├└ç" [autoload subprocess-command-to-buffer "vmsproc" "^ *Directory \\([][:.A-Z-0-9_$;<>]+\\)\\(\\)[\n]" dired-subdir-regexp] 3)
  14. (defconst dired-vms-filename-regexp "\\(\\([_A-Z0-9$]?\\|[_A-Z0-9$][_A-Z0-9$---]*\\)\\.[_A-Z0-9$---]*;+[0-9]*\\)" "\
  15. Regular expression to match for a valid VMS file name in Dired buffer.
  16. Stupid freaking bug! Position of _ and $ shouldn't matter but they do.
  17. Having [A-Z0-9$_] bombs on filename _$$CHANGE_LOG$.TXT$ and $CHANGE_LOG$.TX
  18. Other orders of $ and _ seem to all work just fine.")
  19. (byte-code "└┬ç" ["^[^ \n    ]" dired-re-mark nil] 1)
  20. (defvar dired-directory-command "DIRECTORY/SIZE/DATE/PROT" "\
  21. Directory command for dired under VMS.")
  22. (fset 'dired-ls #[(file switches &optional wildcard full-directory-p) "î``}ê└    ┬ Qp\"ê ½ädb¬áebê┼╟!ê╟╔\nP!ê)╦yêe`|ê╠yê`d|)ç" [subprocess-command-to-buffer dired-directory-command " " file full-directory-p nil case-fold-search re-search-forward dired-subdir-regexp "^" dired-vms-filename-regexp 0 1] 4 "\
  23. Insert ls output of FILE,formatted according to SWITCHES.
  24. Optional third arg WILDCARD means treat FILE as shell wildcard.
  25. Optional fourth arg FULL-DIRECTORY-P means file is a directory and
  26. switches do not contain `d'.
  27.  
  28. SWITCHES default to dired-listing-switches.
  29.  
  30. This is the VMS version of this UNIX command.
  31. The SWITCHES and WILDCARD arguments are ignored.
  32. Uses dired-directory-command."])
  33. (byte-code "└┴Mê┬├Mê─┼Mê╞╟Mê╚╔Mç" [dired-insert-headerline #[(dir) "└    !ê┬òbç" [re-search-forward dired-subdir-regexp 1] 2] dired-make-absolute #[(file &optional dir) "«à┴ «ü\n Pç" [dir dired-current-directory default-directory file] 2] dired-make-relative (lambda (file &optional dir) file) dired-in-this-tree #[(file dir) "┴┬O├ÿ¼ì┴┬O─ÿ¼à┼╞\"ê╟╚╔╩┴O!P \"ç" [dir -1 nil "]" ":" error "Not a directory: %s" string-match "^" regexp-quote 0 file] 6] dired-vms-split-filename #[(file) "└┴\n\"¡ä├─┼\"ç" [string-match "^\\([.A-Z-0-9_$;]*\\):?[[<]\\([.A-Z-0-9_$;]*\\)[]>]\\([.A-Z-0-9_$;]*\\)$" file mapcar #[(x) "    ö    òOç" [file x] 3] (1 2 3)] 3]] 2)
  34. (fset 'dired-noselect #[(dirname &optional switches) "└    !┬     \"ç" [dired-fix-directory dirname dired-internal-noselect switches] 3 "\
  35. Like M-x dired but returns the dired buffer as value, does not select it."])
  36. (fset 'dired-fix-directory #[(dirname) "└    «â\në!ëGS├ë╟╚    £\"¼ë╟╔    £\"½â    ¬╒╩╦    \"╩╠    \"╩═    «ü #ë½⌐½ê    ╬O╧P¬ì ½ë    ╬ TO╨P¬ü╨ë    «ü TO╥Q)¬ò½ç    ╬TO¬ï ½ç    ╬ TO¬ü\n+ç" [expand-file-name dirname default-directory nil colon bracket end char-equal 93 58 string-match "\\]" "\\:" "\\.DIR" 0 "." "[" newdir "]"] 5 "\
  37. Fix up dirname to be a valid directory name and return it"])
  38. (fset 'dired-move-to-filename #[(&optional raise-error eol) "¼à┴ê`┬yê├─P╞#½ä╟öbç¡â╔╩!ç" [eol nil 0 re-search-forward " " dired-vms-filename-regexp t 1 raise-error error "No file on this line"] 4 "\
  39. In dired, move to first char of filename on this line.
  40. Returns position (point) or nil if no filename on this line."])
  41. (byte-code "└┴Mê┬├Mê─┼Mê╞╟Mê╚╔Mê╩╦Mç" [dired-move-to-end-of-filename #[(&optional no-error eol) "└ëëëëë`¼êè└ê`)¡êè╔╩╦#)ë¼ê╠╦#ê¼Æ`=½î╧\n½à╨╤!¬ü╥!ê`=?¡ü`.ç" [nil case-fold-search hidden sym ex flag opoint eol selective-display search-forward "" t re-search-forward dired-vms-filename-regexp no-error error substitute-command-keys "File line is hidden, type \\[dired-hide-subdir] to unhide" "No file on this line"] 7] dired-tree-lessp #[(dir1 dir2) "└    !┬├O└ !┬├O┼╞    \"┼╞ \"½Ö½ò@@ܽîAA¬c@@    ë\n½ï    ½ç\n    Ö¬£\n¼ç    ¼â╦¬æ\n¼â╠¬è    ¼â╦¬â═╬!,ç" [file-name-as-directory dir1 0 -1 dir2 dired-split "[:.]" components-2 components-1 c2 c1 nil t error "This can't happen"] 5] dired-insert-subdir-validate #[(dirname) "┴ë ½Æ ¼Å @ A┼\n@\"¬k ?¡à╟╚\"+ç" [dired-subdir-alist nil item found alist dired-in-this-tree dirname error "%s: directory not in this buffer"] 3] dired-insert-subdir-newpos #[(new-dir) "└    !┬ëëëë½┴@A@╔! ½ì╩ \"¼ö┬ë¼Ä╩ \"½Pë½J╠ \"½B═!¬; bê.m¼â╬yê╧cê`ç" [reverse dired-subdir-alist nil found new-pos pos dir elt alist dired-get-subdir-min dired-in-this-tree new-dir dired-tree-lessp dired-get-subdir-max -1 "\n"] 6] dired-between-files #[nil "è└yêg┴Ü«ï┬uê├─!«âg┼Ü)ç" [0 9 2 looking-at "Total of" 32] 2] dired-buffers-for-dir #[(dir) "└    !\n├ëë½░@ëA╚!½ö╔    èqê\n)\"½îB¬à╦ \n\")Aë¼P+ç" [file-name-as-directory dir dired-buffers nil elt result alist buf buffer-name assoc dired-subdir-alist delq] 4]] 2)
  42.